home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Pitch Class Set / pcs-invert < prev    next >
Text File  |  1998-08-11  |  1KB  |  40 lines
  1. pcs-invert type fn-set
  2.  
  3. type - :integer :symbol :pitch
  4.  
  5. Allen Forte's unique notation system commonly known as Forte Notation has come to be recognised as one of the most successful attempts at providing a means of describing and analysing musical pitch structures that defy interpretation as tonal or 12-note serial systems. Thus, Forte's system is equally at home describing Ives and Stravinsky as it is Schoenberg and Webern.
  6.  
  7. Such a system able to deal with intervallic relationships from pitch class extrapolations of material has a potential within SCOM to be itself a generator of pitch series.
  8.  
  9. The function pcs-invert enables an intervallic statement in symbols or integers to be inverted.
  10.  
  11. (pcs-invert :integer (pcs :integer '6-Z10))
  12. => (0 11 9 8 7 5)
  13.  
  14. (pcs-invert :symbol (pcs :integer '6-Z10))
  15. => (a l j i h f)
  16.  
  17. (pcs-invert :pitch (pcs :integer '6-Z10))
  18. => (c4 b4 a4 g#4 g4 f4)
  19.  
  20. (pcs-invert :integer (pcs :integer '9-7))
  21. => (0 11 10 9 8 7 5 4 2)
  22.  
  23. (pcs-invert :symbol (pcs :integer '9-7))
  24. => (a l k j i h f e c)
  25.  
  26. (pcs-invert :integer '((6 7 9 11 0 2 3) (1 3 6 9 0 11 4 7)))
  27. => ((6 5 3 1 0 10 9) (11 9 6 3 0 1 8 5))
  28.  
  29. (pcs-invert :symbol '(10 0 1 3 4))
  30. => (c a l j i)
  31.  
  32. (pcs-invert :pitch (pcs :symbol '(5-1 5-8)))
  33. => ((c4 b4 a#4 a4 g#4) (c4 a#4 a4 g#4 f#4))
  34.  
  35. (pcs-invert :integer (pcs :integer '(3-1 3-8)))
  36. => ((0 11 10) (0 10 6))
  37.  
  38. (pcs-invert :symbol (pcs :integer '(7-1 6-8)))
  39. => ((a l k j i h g) (a k j i h f))
  40.